home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / programming / blitz / efmuilibsrc / ln.asc < prev    next >
Text File  |  1997-12-06  |  406b  |  32 lines
  1. ;ln.bb2 --- Lib Number
  2. ;
  3. ;(c) 1997 Vivid Imagination
  4.  
  5. If NumPars<>1 Then End
  6.  
  7. l$=Par$(1)
  8.  
  9. If ReadFile(0,l$)
  10.   FileSeek 0,0
  11.   Fields 0,n.b
  12.   Get 0,37
  13.   CloseFile 0
  14.   Select -1
  15.   Case n<10
  16.     n$="000"+Str$(n)
  17.   Case (n<100 AND n>9)
  18.     n$="00"+Str$(n)
  19.   Case (n<1000 AND n>99)
  20.     n$="0"+Str$(n)
  21.   Case (n<10000 AND n>999)
  22.     n$=Str$(n)
  23.   End Select
  24.   Print n$
  25. Else
  26.   Print "Lib not found!!!"
  27. EndIf
  28.  
  29. End
  30.  
  31.  
  32.